Option Explicit
Sub B_Sample020()
    Dim myRng As Range
    Set myRng = Range("A1")		'Nxs
    MsgBox myRng.HasArray
    Set myRng = Nothing			'
End Sub
